home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Mania 4
/
MacMania 4.toast
/
/
Games&Education
/
ez-genes-02
/
Source 0.2
/
FamTree.r
< prev
next >
Wrap
Text File
|
1995-04-19
|
4KB
|
168 lines
#include "Types.r"
#include "SysTypes.r"
#include "MacAppTypes.r"
#if qDebug
include "Debug.rsrc";
#endif
include "MacApp.rsrc";
include "Dialog.rsrc";
include "Printing.rsrc";
include "FamTree.Rsrc";
#define mPerson 5
#define mDisplay 6
#define cAncestor 1201
#define cDescendant 1202
#define cAddParents 1211
#define cAddSpouse 1212
#define cAddChild 1213
#define cEditPerson 1218
#define cDelePerson 1219
#define cDispFather 1220
#define cDispMother 1221
#define cDispSpouse 1222
#define cDispChild 1223
#define cGoto 1229
#define sVersion "0.2"
#define sDate "April 1995"
resource 'vers' (1, purgeable) {
0x0,
0x20,
final, /*beta or final*/
0x0,
verUS,
sVersion,
sVersion" of "sDate"\n©1995 by M.A. Eyler"
};
resource 'cmnu' (mApple) {
mApple,
textMenuProc,
AllEnabled,
enabled,
apple,
{
"About ^0…", noIcon, noKey, noMark, plain, cAboutApp,
"-", noIcon, noKey, noMark, plain, nocommand
}
};
resource 'cmnu' (mFile,nonpurgeable) {
mFile,
textMenuProc,
AllEnabled,
enabled,
"File",
{
"New", noIcon, "N", noMark, plain, cNew;
"Open…", noIcon, "O", noMark, plain, cOpen;
"-", noIcon, noKey, noMark, plain, nocommand;
"Close", noIcon, "W", noMark, plain, cClose;
"Save", noIcon, "S", noMark, plain, cSave,
"-", noIcon, noKey, noMark, plain, nocommand;
"Ancestors", noIcon, noKey, noMark, plain, cAncestor;
"Descendants", noIcon, noKey, noMark, plain, cDescendant;
"-", noIcon, noKey, noMark, plain, nocommand;
"Quit", noIcon, "Q", noMark, plain, cQuit
}
};
resource 'cmnu' (mEdit,nonpurgeable) {
mEdit,
textMenuProc,
AllEnabled,
enabled,
"Edit",
{
"Undo", noIcon, "Z", noMark, plain, cUndo;
"-", noIcon, noKey, noMark, plain, nocommand;
"Cut", noIcon, "X", noMark, plain, cCut;
"Copy", noIcon, "C", noMark, plain, cCopy;
"Paste", noIcon, "V", noMark, plain, cPaste;
"Clear", noIcon, noKey, noMark, plain, cClear;
"-", noIcon, noKey, noMark, plain, nocommand;
"Select All", noIcon, "A", noMark, plain, cSelectAll
}
};
resource 'cmnu' (mPerson,nonpurgeable) {
mPerson,
textMenuProc,
AllEnabled,
enabled,
"Person",
{
"Add Parents", noIcon, noKey, noMark, plain, cAddParents;
"Add Spouse", noIcon, noKey, noMark, plain, cAddSpouse;
"Add Child", noIcon, noKey, noMark, plain, cAddChild;
"-", noIcon, noKey, noMark, plain, nocommand;
"Edit", noIcon, "E", noMark, plain, cEditPerson;
"Delete", noIcon, "D", noMark, plain, cDelePerson
}
};
resource 'cmnu' (mDisplay,nonpurgeable) {
mDisplay,
textMenuProc,
AllEnabled,
enabled,
"Display",
{
"Father", noIcon, "F", noMark, plain, cDispFather;
"Mother", noIcon, "M", noMark, plain, cDispMother;
"Spouse", noIcon, "1", noMark, plain, cDispSpouse;
"Child", noIcon, "2", noMark, plain, cDispChild;
"-", noIcon, noKey, noMark, plain, nocommand;
"Go To…", noIcon, "G", noMark, plain, cGoto
}
};
resource 'MBAR' (kMBarDisplayed,nonpurgeable) {
{mApple; mFile; mEdit; mPerson; mDisplay}
};
resource 'SIZE' (-1) {
saveScreen,
acceptSuspendResumeEvents,
enableOptionSwitch,
canBackground,
MultiFinderAware,
backgroundAndForeground,
dontGetFrontClicks,
ignoreChildDiedEvents,
is32BitCompatible,
true, /* Apple events */
reserved,
reserved,
reserved,
reserved,
reserved,
reserved,
#if qDebug
500 * 1024,
300 * 1024
#else
350 * 1024,
250 * 1024
#endif
};
#if qDebug
resource 'dbug' (kDebugParamsID,purgeable) {
{290, 7, 480, 630}, // [normal=0,0,0,0]Bounding rect for debug window
4, // [normal=1]Debug window font rsrc ID (monaco)
normal, // [normal=9]Debug window font size
normal, // [normal=120]Number of lines
90, // [normal=100]Width of lines in characters
openInitially, // [or normal]Do show window at startup
"Debug Transcript" // [normal=""]Window title
};
#endif